Gets windows serial, OS and edition

===============

Function GetWinKeyV2 : string;
Var//Coded By DeadLine
  Reg: TRegistry;
  Key: String;
  OS: String;
begin
  Reg := TRegistry.Create;
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT'
  + '\CurrentVersion', False) then begin
  Key := (Reg.ReadString('ProductId'));
  Reg.CloseKey;
    Reg.Free;
  Reg := TRegistry.Create;
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT'
  + '\CurrentVersion', False) then begin
  OS := (Reg.ReadString('ProductName'));
  Reg.CloseKey;
  Result := OS + #13#10 + Key;
    end;
    Reg.Free;
  end;
end;